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ABSTRACT: 


The VAX~-11 MACRO assembler translate I geal source code into object 
modules for input to the VAX-11 LIN KER 
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v02.18 MTROOO1 Mike Rhodes 28-0ct-1981 
Fix immediate mode H-Float short Literal optimization/ 
generation code. Also fixed broken BRBs to BRWs. 


v02.17 PCG0011 Peter George 12-0ct-1981 
The previous fix only handles explicit short Literals. 
Now extend that code to cover implicit short Literals. 


v02.16 PCG0010 Peter George 08-Sep-1981 
Correct generation of short floating Point Literals. 


v02.15 ames Chris Hume 1-Dec-1980 
De-optimize beundery valued backward references if indexing 
requested. Allow the orebites tures ty Legal immediate mode in 
address and vield contexts and also the practically useless 
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R. Newland 17-Mar-1980 
In explicit PC relative address tng 5gst for displacement 
expression being absolute. SPR 11-29554 


RNOO29 R. Newland 9-Mar-1980 

In relative and relative deferred references always 
optimize if displacement is known, and use default 
displacement if not known. SPR 11-29062 


RNOO23 R. Newland 3-Nov-1979 
New nessoge codes to get error messages from system 
message file. 
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RNOO19 R. Newland 25-Oct-1979 

Improve error pointer positioning 

RNOO17 R. Newland 20-0c t-1979 

Support for G_floating, vO bebe and Octaword data types. 
Check all bits of operand for optimisation test. 

RNOO14 R. Newland 14-0ct-1979 

Support for .REF16 directive 

RNOOOS R. Newland 12-Aug-1979 

Remove .ALIGN LONG statements 

RNOO17 R. Newland 20-0c t-1979 


Fix problem with optimising a quadword Literal when 
bits 0-31 were all zero. 


RNOO16 R. Newland 19-Oct-1979 
Don't output error messages when .NTYPE operand 
argument is the PC. SPR 11-26392 


007 __._B. SCHREIBER 22-JAN-79 
Fix problem with negative displacement from PC. 
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.SBTTL DECLARATIONS 
: INCLUDE FILES: 


3; MACROS: 
$MAC_ADRMODDEF ; DEFINE ptt td noees 
SMAC_CTLFLGDEF ;DEFINE CONT 
SMAC_GENVALDEF ;DEF INE GENERAL VALUES 
SMAC_INTCODDEF ;DEFINE INT. FIL 
SMAC_OPRDEF 3; Define operand Geecripter bits 
SMAC” SYMBLKDEF ;DEF INE SY BOL BLOCK OFFS 
SMACASGDEF ; Define message codes 


: EQUATED SYMBOLS: 
: OWN STORAGE: 


~PSECT MACSRO_DATA,NOWRT ,NOEXE ,GBL,LONG 


PC_DISPL_DISP: : JUMP TABLE USED WHEN 
; DEFAULT HAS BEEN SPECIFIED 
FOR PC=DISPLACR ENT REFS 


SOOOSSSDSCOSOSOOOOOOOOOOOOOOOOOCOGOOOOOO 
SSOSCSSOSOSCOSOSCOOSOOSOOOCOOOOOOSOOOOSOSOSOSSOO 
SSOSCOSSSOSCOSCSOSOSOSOSOSOOOOOSOOOSOOOOSOOSOSOSOSSO 
ABDEFSOSCSCSCSOSOSOSOSOSOSOSOSOSSOOOSOOOOSOSOSSOSOSSOSOSOOS 
— — — — —  — — — - — — SS I 
WUAIWIWIRononononononononongd 2 2 3 2 BOO OOO GOO0O 
FPWR CODNAUEWN OO OONAUESWN OOD NANEWN HO 


00000000 -LONG 0 ions USED 

BRnOns Ee LONG DISPL3 i o=BYTE psp Ac erent 
00000238' ~-LONG DISPL5S ays DISPLACEMENT 
00000230" -LONG DISPL4 ; 5--LONGWORD DISPLACEMENT 


E 5 
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AND THE ASSOCIATED VALUES, IF ANY. 


01 1 p++ 
o1 1 > : OPERANDS OF MACHINE INSTRUCTIONS ARE SPECIFIED BY REFERENCES. BEFORE 
O1 : ; THESE ROUTINES ARE CALLED, THE FOLLOWING FLAGS MUST BE SET 
001 140 MACSGL_OPSIZE SIZE OF OPERAND IN BYTES (DEPENDS ON INSTRUCTION) 
001 148 : MACSGL_REFSIZ USER SUPPLIED REF WIDTH (IE MOVL *S#1,RO) 
0010 143: THIS VALUE MUST BE SET TO THE DEFAULT SIZE 
0010 144: IF THE USER SPECIFIED NO WIDTH. 
0010 145; 
0010 146: 
0010 147 : THESE ROUTINES GENERATE INTERMEDIATE CODE SPECIFYING THE MODE(S) 
0010 148 t AND REGISTER(S) USED BY THE REFERENCE. 
0019 130 : THE RESULTS ARE RETURNED AS FOLLOWS: 
0010 138 : MACSGB_VAL1 MACS$GB_MODE MODE OF OPERAND 
0010 153; MACS$GB_VAL MACSGB-IMODE ('E* MODE IF INDEX MODE) 
0010 154: MAC$GB_VAL MACS$GB_REG (REGISTER USED BY OPER 
9019 138 : MACSGB_VAL4 MACSCB” IREG ("E* REGISTER IF INDEX MODE) 
tt 130 : THE VALUE OF "MACS$GL_PC' IS UPDATED BY THE SIZE OF THE REFERENCE 
0010 159: 
0010 160; 
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»~SBTTL REFERENCE DIRECTIVE ROUTINES (.REFn) 
-PSECT MACSRO_CODE_P1,NOWRT,GBL,LONG 


THIS ROUTINE IS INVOKED AFTER A Hg) DIRECTIVE HAS 
BEEN PROCESSED. THE ROUTINES RFHD1/2/4/8/16 SET UP THE 
INFORMATION, THE REFERENCE IS THEN PARSED, AND DIRREF 
IS THEN CALLED TO FINISH THE PRODUCTION. THE REFERENCE 
IS EMITTED TO THE INTERMEDIATE FILE. 


: DIRECTIVE = REF_HEAD REF 
SINTOUT_LW INTS_REF ,<W*MACSGL _vaile. WiMACSGL OPSTZE> sOUTPUT REFERENCE 
cr 4} “WogAcsec. OPSIZE,#8 3QU UADW py ORD REFERENC 

CMPB = W°MACS$GB_VAL1,#ADMS_ immeb LATE: ;YES~-INMEDIATE? 


BNE N 
lca LW INTS_STIL,<W*MACSGL _vAL3> S YES==STORE UPPER 32 BITS 


;++ 
; FUNCTIONAL DESCRIPTION: 


; THESE ROUTINES afte TL gga ARE rere WHEN A REFERENCE 
; DIRECTIVE IS ENCOUNTERED. RFHDX SET THE SIZE OF THE OPERAND 
: AND INITIALIZE STORAGE FOR PARSING THE EXPRESSION TO FOLLOW. 


RFHD1:: ;REF_HEAD = KREF1 

BSBB RFHD :G0 TO COMMON ROUTINE 

-BYTE 1 SOPERAND SIZE IS ONE BYTE 
RFHD2:: ;REF_HEAD = KREF2 

BSBB RFHD 360 To COMMON ROUTINE 

-BYTE 2 :SIZE OF OPERAND IS 2 BYTES 
RFHD4:: ;REF oe og it 

BSBB RFHD 3:60 To COMMON R OUTINE 

-BYTE 4 [SIZE OF OPERAND IS 4 BYTES 
RFHDS8:: ;REF_HEAD = oy hs 

BSBB RFHD :G0 TO COMMO TINE 

-BYTE 8 :SIZE OF OPERANDS. IS 8 BYTES 
RFHD16:: ;REF_HEAD = KREF16 

BSBB RFHD :GOTO COMMON ROUTINE 

-BYTE 16 sSIZE OF OPERAND IS 16 BYTES 
RFHD: 

MOVZBL oh W*MACSGL_OPSIZE poet Ene SIZE 


tt I MIOQOODODOO0O OOOO OOO OO 00000909 09 09 09 09 0909 SININSI SIN NINO OAAAAOAO MM 
CONAN EAN OOD NOAUE WIN 9 OD NAME WIN OS OD NAME WIN CO OONAME WN (OODNAOULSWWNM OZ 


MOVAB MACSGK ~ZERO 


0,W*MACSGL_ nop 
CLRL UeRACSCO-M ODE 


sALL MODES ARE LEGAL 
CLEAR® MODE , IMODE ,REG, IREG 


MACSACTREF 
V0s-000 


00000044 of 


OPERAND 
REF ERENC 


c8 
05 


3 


E ROUTINES (.REFn) 


BISL2 
RSB 


#\ LGSM_EVALEXPR!FLGSM_COMPEXPR, ~ sEVALUATE EXPR 
(R11) SAND ASSUME COM 
:RETURN TO CALLER'S CALL 


'CSEEISE HRERVS8 WANADS tes det 
ESSI 
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~SBTTL OPERAND REFERENCE ROUTINES 


p++ 

: FUNCTIONAL DESCRIPTION: 

: REF1 AND REF3 ARE INVOKED WHEN A BASIC REFERENCE OR 

; AN INDEX REFERENCE IS PROCESSED TO COPY THE MODE AND 

: REGISTER VALUES INTO MACS$GB_VAL1-MAC$GB_VAL4. 

REF1:: ;REF = BASIC_REF 

REF3:: ;REF = INDEX_REF 

REF _EXIT: ‘GENERAL REF EXIT 

MOVL § W*MACS$GB_MODE,W*MACSGB_VAL1 ;ENCODE MODES AND REGISTERS 

- INTO GB_VAL1-GB_VAL4 

AUTOI:: ;BASIC_REF ="AUTO_IN 

DISP:: SBASIC-REF = DISPLACEMENT 


RSB 


;++ 
; FUNCTIONAL DESCRIPTION: 


atte IS_INVOKED WHEN A BASIC REGISTER REFERENCE IS we 
THE MODE (REGISTER MODE) IS ENCODED eae MACS$GB_MODE, AND THE 
REGISTER NUMBER IS SET IN MACSGB_REG. THE FINAL RESULTS ARE 
THEN ENCODED INTO MAC$GB_VAL1-MACSGB_VAL4. 


INPUTS: 
3 MAC$GB_VAL1 REGISTER NUMBER 

; OUTPUTS: 

; MACSGB_MODE SET 10 SADMS RE REGISTER’ 


MAC$GB_REG REGISTER NU 
MAC$GB_VAL1-VAL4 ENCODED MODES P AND REGISTERS 


REF = .RRREG 
MOVE - WADMS_REGISTER.W°MACSGB_MODE :MODE IS REGISTER MODE 
MOVB W*MACSGB_VAL1,W“MACSGB_REG ‘cit REGISTER VALUE 
BSBBSsSLL_REG_CHK CHECK FOR ILLEGAL PC USAGE 
BRB REF EXIT :FINISH UP 


% 
MACSACTREF OPERAND REFERENCES 16-SEP-1984 962 00:68 AX/VMS Macro Vv04-00 Page 
v04-000 DEFERRED REGISTER MODE OPERAND -SEP=1984 01:47:09 CMACRO.SRCJACTREF .MAR; 1 
se $9 .SBTTL DEFERRED REGISTER MODE OPERAND 
4 71 34+ 
6 i ; FUNCTIONAL DESCRIPTION: 
43 74; THIS ROUTINE IS INVOKED WHEN A DEFERRED REGISTER MODE OPERAND 
066 275; 1S ENCOUNTERED. THE MODE IS SET TO INDIRECT REGISTER, AND 
066 5g ; THE REGISTER NUMBER IS STORED. 
066 28 ; INPUTS: 
066 : ; MACSAL_VALSTACK=4CR7] REGISTER NUMBER 
066 3 ; OUTPUTS: 
066 4: MAC$GB_MODE $_RRIND'=-INDIRECT REGISTER MODE 
066 ; ; MAC$GB_REG REGISTER NUMBER 
ges 
0066 289 RDEFER:: :BASIC_REF = DOPN RRREG DCLS 
0000'CF 06 90 0066 290 MOVB #ADMS$_RRIND,W*MACSGB_MODE ;SETMODE AS INDIRECT REG 
QOOO'CF FFFC'CF47 F6 0068 331 CVTLB W"RACEAL VALS TACK OLR? J,- ;STORE REGISTER NUMBER 
42 11 0073 $35 BRB ILL_REG_CHK ;CHECK ILLEGAL PC AND RETURN 


~~ 
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34+ 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS INVOKED WHEN THE PRODUCTION ‘DAT AUTO_INC' 
; IS FOUND IN THE TEXT. IF LITERAL MODE IS USED IT IS FORCED 
3 TO IMMEDIATE LONGWORD. THE MODE IS SET AS ABSOLUTE. 
AUTOII sBASIC_REF = DAT A 
O3F8 0 BSBW SPESHL_MODE_CHK FORCE” LONGWORD 10” IMEDIATE 
O3F5 0 BSBW SpESHL “MODE- CHK FORCE LONGWORD CONTEX 
0000' CF 3 INCE W*MACSGB_MODE MAKE INDIRECT MODE 


COOCOCOCSOOOOOOOSOOOOCOOOOOSOOOOOCOOOOOOOOOOOO ZZ 
SOCOCOCOCOCSOSOSC OOOO OCOOCSOSOOSOOOSOOCOOCSOOOOCOOCOOoOoOoOO MO 


0009090900 09 09 09 09 09 00 C9 C0 CO CO CO CD CO CO COCO OI9O9O8 INI NINN NNN OD 


WANNA ANA ANWWNAN AAW NA AIInonononn 


FS NOOO OOOO COS QO QOOOOOOOOO MD OMNIA 
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+ 
FUNCTIONAL DES‘RIPTION: 
THIS vg ntl IS INVOKED WHEN AN AUTO=DECREMENT ADDRESSING MODE 


; IS ENCOUNTERED. THE MODE AND REGISTER ARE SET UP, AND A CHECK 
: 1S MADE FOR ILLEGAL USE OF 'PC' 
: INPUTS: 
; MACSAL_VALSTACK=4CR7] REGISTER NUMBER 
: OUTPUTS: 
: MACSGB_MODE "ADM$_REGAUTODEC' 
: MAC$GB~REG REGISTER NUMBER 
AUTODC SIC_REF = DMINUS DOPN RRREG DCLS 
0000'CF 07 90 MOVB HADMS REGAUTODEC wemacscé. emODE :SET MOD 
QOOO'CF FFFC'CF47 F6 CVTLB MACSAL_VALSTACK-4CR7J,~";PICK UP REGISTER NUMBER 
28 «11 BRB ILL_REG_CHK " :CHECK ILLEGAL REGISTER AND RETURN 
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v04 INDIRECT DISPLACEMENT REFERENCES -SEP-1984 01:47:0 MACRO. SRCJACTREF .MAR; 1 
0 : ; -SBTTL INDIRECT DISPLACEMENT REFERENCES 
fF § 34+ 
: 3 FUNCTIONAL DESCRIPTION: 
8 5 § : THIS ROUTINE PROCESSES INDIRECT DISPLACEMENT REFERENCES. 
F 40 ; ABSOLUTE AND PIC MODES ARE CHANGED TO LONGWORD DISPLACEMENT, 
° £ 41; LONGWORD DISPLACEMENTS ARE FORCE TO IMMEDIATE LONGWOR 
09 : 4g ; CONTEXT. THE MODE IS THEN SET TO DEFERRED DISPLACEMENT MODE. 
0 : te : INPUTS: 
09 : m4 3 MACS$GB_MODE MODE OF DISPLACEMENT 
Mat 48 ; OUTPUTS: 
008F 49 ; 
OO8F 50 ; MAC$GB_MODE DEFERRED DISPLACEMENT MODE 
boar 51; MACSGL_PC UPDATED IF NECESSARY 
O8F 26 : 
OO8F 53 :-- 
OO8F 54 
OO08F 55 DISPI:: sBASIC_REF = DAT DISPLACEMENT 
50 OO00'CF 9E O08F 56 MOVAB WenACsGB MODE ,RO 3GET ADDRESS S OF MODE 
02 60 91 0094 57 CMPB (RO) ,#ADAS ABSOLUTE ;ABSOLUT ODE 
05 12 06097 58 BNEQ NEQ fo” 
60 Of 90 4044 22 10$: nOvB #ADM$_LONG_DISP, (RO) tYES==FORCE LONGWORD DISPLACEMENT 
03 60 £91 Bane 61 20$: CMPB (RO) ,#ADMS$_PIC ;PIC CODE? 
F6 13 OOAI 6¢ BEQL 10$ zIF EQL YES 
06 60 91 OOA3 6 CMPB (RO) ,#ADM$_RRIND tIF CR) THEN DE-OPTIMIZE 
07 12 OOA6 64 BNEQ 30$ ‘NOT (R) 
00A8 65 SINC_PC ONE MORE BYTE 
60 OA 90 OOAC 66 MOVB #ADMS_BYTE ISP. (RO) USE BYTE DISPLACEMENT 
O3BE 30 OOAF 67 30$: BSBW SPESHC_MODE C [CHECK MODES FOR DEFERRAL 
0000'CF 43 0082 He: 1uce W*MAC$GB OMOBE sMAKE DEFERRED DISPLACEMENT 


MACSACTREF OPERAND REFERENCES 16-SEP-1984 70 AX/VMS Macro V94-00 Page 11 | 
v04-000 CHECK FOR ILLEGAL USE OF PC -SEP-1984 t 8%: 90: $8 MACRO.SRCJACTREF .MAR; 1 . (9). 
087 4 »SBTTL CHECK FOR ILLEGAL USE OF PC 
7 og p++ 

of fe 3 FUNCTIONAL DESCRIPTION: | 
087 £6 3 iets ROUTINE CHECKS FOR ILLEGAL USE OF PC. IF THE REGISTER 
087 77; 1S PC, AN ERROR MESSAGE IS SENT TO PASS 2. THE LOCATION COUNTER 
Oar 378 I$ BUMPED BY 1. 
087 79 ; 

tet ? ; INPUTS: 

9087 ¢ : MACS$GB_REG REGISTER IN QUESTION | 
087 3 MACSGB_MODE CURRENT MODE 

0087 3 3 

0087 5 ; OUTPUTS: 

0087 56 3 

0087 87 ; MACSGL_PC INCREMENTED BY 1 

0087 88 ; 

0087 89 ;-- 

0087 90 

0087 91 ILL_REG_CHK: 

0087 35 “CMPB W*MACSGB_REG, #REGS_PC ;"PC* IS ILLEGAL REGISTER HERE 

00BC 9 BNEQ ive :1F NEQ THEN LEGAL REGISTER 

OQOBE 94 BBSC #FLGSV_NTYPEPC, (R11), 10$° 3; If .NTYPE directive no error 

O0C¢ 95 SAAC ERR IULREGH HERE Load message code 

00C 96 MACSGB_MODE , #ADM$ REGISTER Is addressing mode register? 

oocc 397 BNEG o if NEQ 

OOCE 98 BSBW MACSERRORPX : a error to pass-2 

00D1 399 ERB 10$ 

B008 400 5 

00D 401 SBW MACSERRORPT ;SEND ERROR TO PASS 

0006 rt) J 

OODA 40 S$ 


2 
ZADD ONE TO LOCATION COUNTER 
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OPERAND REFER 
DISPLACEMENT 


51 FFFG‘CF 
56 

52. FFFC'CF 
0000° CF 
OF 

0000" 

00 


0000'CF 
0000' CF 
56 


0000° 


68 
51 FFFFOOOO 


8 td od = BOO DO FFF FF UTNE ETD 
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0B 68 
FE 
0000° CF 
FF 
51 
OOOO7FFF 8F 
0000007F 8F 


FP at ae ot et ot et et at ke eh a ee ee a a a eh eh eh ek eh eae eh a a ek eh ee ee te ee eh ke ee 


UN VIMIOWUIS OQOVINIWNIDOOOMOOM DOOOMUMLUNIS 
RW SWNONN TS SMBEMMWO—| NW OMrne~w 
> — $10 "OO UN "WW PWN POO —WwYn—G00°0 


0 9 9 WO hn 9 OO KO OOSDT WO OUT TCSO 
a ed ed ced ed ed ed ee ed ed eed eed eed eed eed eed eed ed = COO OQOQOOOCOCO 


COSCO OOOCOOOOCOOOCOOOOoCoOoOOoOooSoooo 


= 


cE 
FE 


S 
RENCES 


"$$EP=1986 01:47:09 ERACRO: SRCSACTREF RAR; 1 


~SBTTL DISPLACEMENT REFERENCES 


: THIS ROUTINE PROCESSES DISPLA oceans OFF OF A SPECIFIC 
: REGISTER. IF THE REGISTER IS HE OPERAND 
; TREATED AS EXPR . IF THE VALUE “of THE EXPRESSION IS 0 
; AND WE CAN OPTIMIZE EXPRESSION E CODE FOR THE EXPRESSION 
; 1$ DELETED FROM THE INTERMEDIATE BUFFER. THE DISPLACEMENT 
3 1S SET TO BYTE, WORD, OR LONGWORD WITH WORD DISPLACEMENT 
3 THE DEFAULT. 
: INPUTS: 
° MACSAL_VALSTACK=1 CR7) EXPRESSION VALUE TO CONSIDER 
: MACSA’ “VALSTACK=4(R7] REGISTER BEING DISPLACED 
3; OUTPUTS: 
; are MODE SET WITH CORRECT MODE 
: AC$GL “PC UPDATED BY SIZE OF OPERAND 
DISPL1 s;DISPLACEMENT = EXPR ro. RRREG DCLS 
MOVL W*MACSAL _VALSTACK=12CR7], R1 ;GET EXPRESSION TO OPTIMIZE 
MOVL R1,R Ls - CASE REGISTER IS PC 
MOVL W*MACSAL a se -4(R7), R2 ISTER BEING DISPLACED 
MOVB neoar “WHA ACSGB ; STORE ron WORLD To SEE 
CMPB Qs Pen 1S REGIS PC’? 
BNEQ 3; No if 
TSTL OeMACSGL _ABSFLAG : Is UF nee absolute? 
BEQL : Yes if EQL 
53 BRW DISPPC 
MOVL R1,W*MACSGL_EXPOPVL1 ;LOAD EXPR VALUE 
MOVB #AOMS WORD _BISP, W*MACS$GB -MODE ta leh ovtes DISPLACEMENT 
MOVZBL #3,R uLT LONG 
TSTL W*MACSGL  ABSFLAG ABSOLUTE eM RESSION? 
BEQL 0$ F EQL YES 
BICL2 #FLGSM SOOCRT (R11) ‘NO=-NOT COMPILE TIME EXPRESSION 
BITL #*XFFFFOOOO :REQUIRE LONGWORD? 
BEQL 50$ s1F EQL NO--LIN KER MAY COMPLAIN THO 
BRB 40$ VALUE By LONGWORD AND EXIT 
10$: TSTL R1 
BNEQ 208 SIF NEQ 
BBC #FLG$V ee lait 20$ ‘BRANCH "p CANNOT ABTS EXPR 
BSBW mac ogra + WE CAN--WIPE OUT ty RESSION 
MOVL 9 WPRACSCL OE XPEND SET NEW END OF EXPR POINTER 
BRW ue RDE : USE REGISTER DEFERRED MODE 
208: bgeq 30$ : If negative 
mcoml ri,ri ; then make +f ositive nognttude. 
30$: capt rl HXTT tt : Pye oF or Word Displacement? 
ru : no. 
tbe rl, #*x7f 3 Yes: y *~ Displacement? 
bgtru 50$ : If GTRU no: Word Disp. and PC OK. 
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MACSACTREF OPERAND REFERENCES 16-SEP-1984 02:0 AX/VMS Macro v04-00 P 13 
04-000 DISPLACEMENT REFERENCES mit y ee a Mee era tat ae Ore 29 40) 
0000' CF A 0 0148 46 movb oornt _BYTE_DISP, Sener -MODE Yes: Set Byte Displa Cs 
gf 5; a O14 ies ROVZBL #2, R67 : 2 BYTE OPERAND eet 
wer't 3 90 15 465 40$: MOVB #ADM$_LONG_DISP, mene. MODE ;SET LONGWORD DISPLACEMENT 
6 05 9A 015 466 MOVZBL #5,R6~ 75 BYTES FOR OPERAND 
130 467 50$: SINC_PC R6- [UPDATE LOCATION COUNTER 
OF or 4 FH 188 ce W*MACSGB_REG, #REGS_PC 3 Is off NEO from PC? 
OOOO'CF  O000'CF (6 166 29 ADDL2 W*MACSGL_PC.U*MACSGL_EXPOPVL1 Send expression value to pass-2 
16D 471 3 with PC added in, it will be subtracted 
16D $76 3 by pass-2. 
0160 473 60$: 
05 0160 474 RSB 


—————————— EEE ee ——__—— ——— ee 


MACSACTREF OPERAND REFERENCES 16-SEP-1984 02:00:48 VAX/VMS Macro V04-00 Page 14 | MA 
v04-000 DISPLACEMENT OFF ‘PC’ mise Yi 8:00:58 ERACRO SRE ACTREF .MAR; 1 . oad Sy 
16E 47 ~SBTTL DISPLACEMENT OFF ‘PC’ FL 
16E 23 FL 
16E 478 ++ FL 
D16E i 3 FUNCTIONAL DESCRIPTION: | ‘t 
D16E 18; : THIS ROUTINE IS INVOKED WHEN A DISPLACEMENT DF THE FORM G 
16E AL 3 "EXPR’ IS ENCOUNTERED. THE CORRECT SIZE OF THE DISPLACEMENT | GE 
She re 3 IS DETERMINED AND THE MODE IS SET AND THE PC IS UPDATED. | a 
016E 48 : INPUTS: HY 
O16E 486; IL 
Q16E 487 ; MACSAL_VALSTACKC®7) VALUE OF EXPRESSION IN 
O16E 488; IN 
Q016E 489 ; OUTPUTS: IN 
QO16E 490; IN 
O16E 491; MAC$GB_MODE SET TO CORRECT MODE IN 
016E 49¢ : MACS$GL— =EXPOPVL1 SET TO VALUE OF EXPRESSION IN 
O16E 493; MACSGL_PC UPDATED BY SIZE OF OPERAND IN 
O16E 494; IN 
O16E 495 ;-- IN 
O16E 496 IN 
O16E 497 DISPL2:: ;DISPLACEMENT = EXPR IN 
06 0005'CF 9 O16 498 BLBC WrENBSG_ ABSADDR+SYMSL_VAL,10$ ;BRANCH IF NOT ENABLE AMA | IN 
0195 30 0173 499 BSBW = AINC2 SYES=--TREAT AS IMMEDIAT | IN 
FEFC 31 0176 500 BRW AUTOII ; THEN MAKE ABSOLUTE AND EXIT IN 
56 QOO00'CF47 DO 0179 £501 108: MOVL Tarai Fe _VALSTACKECR7],R6 ;GET V | IN 
‘CF «OF 90 O17F 20¢ MOVB #REGS PC-W°MACSGB REG ;SET PC as REGISTER IN 
OOOO'CF 56 DO 0184 503 DISPPC: MOVL R6,W°MACSGL MEXPOPUL | ;COPY VALUE IN 
51 D4 0189 504 CLRL R1 3 Initialise absolute flag IN 
OOOO'CF 05 0188 505 TSTL W*MACSGL_ABSFLAG ; Absolute expression? IN 
04 12 O18F 506 BNEQ 1$ : No if N IN 
51 D6 0191 507 INCL R1 ; Set flag for later IN 
29 3611 «+0193 «508 BRB 5$ IN 
0195 509 18: 1 IN 
25 68 02 €0 8135 $19 9 BBS #FLGSV_COMPEXPR,(R11),5$ ; Branch if compile time expression e 
50 0000'CF DO 0199 21¢ MOVL W*MACSGL_DFPC_DSP,RO ;GET THE DISPLACEMENT FROM DEFAULT IN 
03 12 O19E = 51 BNEQ 3$ ; Branch if has been speci IN 
50 03 00 gig a 33 MOVL #3,R0 ; Use ‘longword' displecaent. as default a 
57 04 CO bia 516 ADDL2 ef UP STACK FRAME | 
FFFC'CF47 OF DO O1A6 517 OVL orécs PC WPRACSAL VALSTAEK R/) 3SET REGISTER 
FFFG'CF47 56 DO OAC 518 MOVL  R6,W°RACSAL_VALSTACK-12CR7] ;AND VALUE | 
50 0000'CF40 00 188 219 MOVL werc _DISPL tS SPERO. RO GET" THE oisr.vir5 ADDRESS 
60 16 018 20 JSB RO)~ 760 TO 
57 04 ce O1BA 2 1 SUBL2 #4,R7 :ADJUST STACK 
OOOO'CF OE 90 O18 5 : 5$: MOVB SADMS _ LONG_DISP, W°MACSGB’ MODE :SET DEFAULT MODE 
01 9A OIC 3 4 MOVZBL #1,R TINC/DEC VALUE FOR PC 
01C6 5 SINC_PC #2 SOPERAND IS AT LEAST 2 BYTES | 
5151 €8 giee § LBS R1,50$ 3; Branch if expression was not absolute | 
se 8 ; EXPRESSION CAN BE OPTIMIZED | 
56 0000'CF 4 ce 0 SUBL2 W*MACSGL_PC,R6 3GET DISPLACEMENT 
6 18 01D é 1 bgeq 10$ : Branch if positive displacement 
54 4 CE 01D5 2 mnegl r4,r4 ; Need to add one if not Byte 


MACSACTREF PERAND R EN 16-SEP-1984 02:0 AX/VMS Macro V04-00 Page 15 | 
v04-000 ISPLACEM OFF ‘PC’ mets 64 09:98 MACRO. SRCJACTREF .MAR; 1 . (11) | 
| 
56 6 D2 01D8 3 mcoml r6,r6 ; Get positive magnitude -1 
QOOO007F 8F 26 Di 0108 : 4 10$ cmpl r6,#*x7f s Byte Displacement? 
11 TA QIE2 335 bgtru 20 : If greater in magnitude: No. 
08 ig 164 536 bnequ 15$ 5 Flag at boundary in case of indexing. 
54 OD 166 8537 tstl r4 3 orward ref. indexing is no prob. 
06 #1 1€8 2 8 bgeq 15$ 
00 68 c. & 1EA 9 bbss #FLGSV_OPTVFLIDX,(r11),15$ 
0000' CF A 9 1E 540 15$ movb WADMS$_BYTE_DISP,w*MACSGB_MODE ; Yes: Set Byte Displacement, 
2 11 OF ae brd 60$ ; PC is correct no 
56 4 C2 OF 4g 208 subl2 r4,r6 ; Include extra byte in displacement. 
OOOO7FFF BF 56 Di O1FB 54 cmpl r6,a*x7 fff ; Word Displacement? 
14 1A Bint ete bgtru 308 : If greater in magnitude: No. 
08 Ng 01 45 bnequ 5$ : at at boundary in case of indexing. 
54 D5 0203 546 tstl r4 ; If forward ref. indexing is no prob. 
046 18 0205 547 bgeq 25$ 
00 33 Es 0207 548 bbss #FLGSV_OPTVFLIDX,(r11),25$ 
0000'CF oe. 0 549 258: movb #ADM$_QORD_DI SP,w*MACSGB_ MODE ; Yes: Set Word Displacement, 
54 01 9A 1 550 movzbl #1,r4~ ; Update PC by one. 
03 11 0213 551 brb 40$ 
54 03 9A 0215 226 30$: movzbl #3,r4 ngword: update PC by 3. 
osi8 553 40$: SINC_PC R4 ‘ UBDA E LOCATION COUNTER 
08 11 bg1D eee BRB 60$ 
O21F #556 ; Not compile time expression (not Absolute) 
O21F 557 
6B 04 CA O21F 558 
Oses 559 ;UPDATE PC FOR DEFAULT LONGWORD 
022 560 


| 

| 

| 

: 
50s: BICL2  #FLGSM_COMPEXPR,(R11)  ;FLAG NOT COMPILE TIME EXPRESSION 
INC_PC #3 

60$: R | 
| 


OPERA 
EXPLI 
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~SBTTL EXPLICIT DISPLACEMENTS AND PIC REFERENCES 


om 


++ 
; FUNCTIONAL DESCRIPTION: 


#3, ERA 
10$: CVTLB) =W*MACSAL ayy bi il 3GET THE REGISTER VALUE 
MOVL nian - ;COPY EXPRESSION VALUE 


51 
OOOO'CF FFFC'CF47 F6 
OOOO'CF FFF4*CF47 00 


ND REN 
CIT DISPLA 
é 
8 
64 ; 
gf 
0 83 : THESE ROUTINES (DISPL3/4/5) ARE INVOKED WHEN AN EXPLICIT 
68 ; DISPLACER ENT REFERENCE IS ENCOUNTERED. THE CORRECT MODE 
0 569 : 1S SET, THE REGISTER IS SET, AND THE PC IS UPDATED BY | 
0 5 220 : THE ite OF THE OPERAND. 
0 ie t INPUTS: 
§ $f 74 : MACSAL_VALSTACK=4(R7]__ REGISTER VALUE 
8 38 273 3 MACSAL_VALSTACK=12CR7] EXPRESSION VALUE 
0 H 577 : OUTPUTS: 
0328 578 : 
0228 579: MAC$GB_MODE SET TO CORRECT MODE 
0238 580 ; MACS$GB_REG SET TO REGISTER 
0228 581: MACSGL~PC UPDATED BY SIZE OF OPERAND 
0228 582: 
0228 583 :-- | 
0228 584 
0228 585 .ENABL LSB 
0228 586 
0228 587 DISPL3:: :DISPLACEMENT = DBUP EXPR DOPN RRREG DCLS 
50 OA 9A 0228 588 MOVZBL #ADM$_BYTE_DISP,RO [SET BYTE DISPLACEMENT 
51 02 9A 0228 589 MOVZBL #2,R1 ‘LENGTH OF OPERAND 
OE 022k 390 BRB 10$ 
0230 39¢ DISPL4:: :DISPLACEMENT = DLUP EXPR DOPN RRREG DCLS 
50 OF 9A 0230 59 MOVZBL HAMS _LONG_DISP,RO 'SET LONGWORD DISPLACEMENT 
51 05 9A 0233 594 MOVZBL 4#5,R [LENGTH OF OPERAND 
06 11 0236 395 BRB +t 
0238 597 DISPLS:: :DISPLACEMENT = DWUP EXPR DOPN RRREG DCLS 
50 OC 9A 0238 598 MOVZBL #ADM$_WORD_DISP,RO SSET WORD DISPL ACER ENT 
03 «9A 0238 399 MOVZBL ‘LENGTH OF OP 
0246 601 | 
0246 60¢ 

024E 60 ACSGL_EXPOPVif 

Q0000'CF D5 O24E 604 TSTL | W*MACSGL_ABSFLAG™ ;ABSOLUTE EXPRESSION? 
03 «13 065 605 BEQL TIF E 
68 04 CA 0254 606 BICL2 #FLGSM_COMPEXPR,(R11) :ELSE NOT COMPILE TIME EXPRESSION 

0397 607 DISPLX_EXIT: 
0000'cF 50 90 0257 608 20$: ~ MOVB — RO,W*MACSGB_MODE 7SET MODE OF OPERAND 

025¢ 609 SINC_PC R1 ‘UPDATE PC BY SIZE OF OPERAND 

05 0261 610 RSB 
0268 611 
0262 612 .DSABL LSB 


E 6 


MACSACTREF OPERAND REFERENCES Ig-Se EP=1 1984 0: 09: 48 VAX/VMS Macro V04-00 
v04-000 EXPLICIT DISPLACEMENTS AND PIC REFERENCE 5-SEP=1 :09 CMACRO.SRCJACTREF MAR; 1 
6 614 : 
6 615 : FUNCTIONAL DESCRIPTION: 
é 813 : THESE ROUTINES (DISPL6/7/8 AND GENLDS) ARE INVOKED WHEN 
62 «618: PECIFIC SIZE DISPLACEMENT REFERENCE OR A SPECIFIC PIC 
62 619: REFERENCE IS ENCOUNTERED. THE REGISTER IS SET TO ‘PC’, 
0 6 6 0 ; THE PC IS UPDATED BY THE SIZE OF THE OPERAND. 
: é é : INPUTS: 
? ? ¢ : MACSAL_VALSTACKCR7] EXPRESSION VALUE 
§ 62 626 : OUTPUTS: 
026 627 ; 
0262 628: MAC$GB_MODE SET TO MODE 
026 629 : MAC$GB_REG SET TO 'PC' (15.) 
0262 630: MACSGL—PC UPDATED BY SIZE OF OPERAND 
026 631 : MACScL “EXPOPVL1 SET TO VALUE OF EXPRESSION 
0262 re << 
0262 634 
0262 635 .ENABL LSB 
0262 636 
0262 637 DISPL6:: sDISPLACEMENT = DBUP EXPR 
50 OA 9A ose 638 MOVZBL #ADM$_BYTE_DISP,RO ;SET BYTE DISPLACEMENT 
51 02 9A 026 639 MOVZBL #2,R1 sSET SIZE OF OPERAND 
16 11 0268 640 BRB 10$ 
026A 641 
026A otg DISPL7:: ;DISPLACEMENT = DLUP EXPR 
50 OF 9A 026A 64 MOVZBL #ADM$_LONG_DISP,RO [SET LONGWORD DISPLACEMENT 
51 05 9A 0260 644 MOVZBL #5,R1 :SIZE 1S 5 BYTES 
OE 11 0270 645 BRB 10$ 
0272 646 
0272 647 DISPL8:: sDISPLACEMENT = DWUP EXPR 
50 OC 9A 027 648 MOVZBL #ADM$_WORD_DISP,RO ‘SET WORD DISPLACEMENT 
51 03 9A 0275 649 MOVZBL #3,R1 ‘SIZE IS 3 BYTES 
06 078 650 BRB 10$ ; 
027A 651 
027A 63¢ GENLDS:: sDISPLACEMENT = DGUP EXPR 
50 03 9A O27A 65 MOVZBL #ADM$_PIC,RO ‘SET PIC MODE 
51 05 9A 443 654 MOVZBL # sLENGTH IS 5 BYTES 
0000'CF OF 90 0280 655 10$: MOVB #REGS PC,W*MAC$GB_REG eSET REGISTER TO PC 
0000'CF O000'CF47 DO 0285 656 MOVL §W*MACSAL VALSTACKER7J,- :COPY EXPRESSION 
gp 657 Q*MACSGL _EXPOPVLI 
0000'CF 05 D 658 TSTL  W*MACSGL_ABSFLAG™ s ABSOLUTE EXPRESSION? 
C4 12 0291 659 BNEQ DISPLX_ERIT [IF NEQ NO--GO FINISH UP 
68 04 CA 0293 660 BICL2 M#FLGSM“COMPEXPR,(R11) :YES--ABS REQUIRES LINKER ACTION 
BF 11 0296 661 BRB DISPLX~EXIT :GO EXIT 
0298 66¢ 
0298 66 .DSABL LSB 


_— by 19736-1388 8e 00:48 yaneyne Macro i Page 18 | 


MACSACTREF OPERAN 
v04-000 LITERA 4 4 MACRO.SRCJACTREF .MAR; 1 (14) | 


~SBTTL LITERAL MODE 


++ 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS INVOKE 
IF THE OPERAND IS A F 
TO A SHORT FLOATING LI 
INPUTS: 


MACSAL_VALSTACKCR7J VALUE OF EXPRESSION 


ERAL REFERENCE IS SCANNED. 
OPERAND, IT IS CONVERTED 


409 
m> 
a= 
>= 
- zm 
* a2 
vw, 
oO 
ze 
a4 


LITERL:: ;REF = DSUP DPOUND EXPR 
0000' CF TSTL W*MACSGL_ABSFLAG : ABSOLUTE? 
4 BEQL 10$ IF 


D 

1 EQL YES 

0068 O07 €E BBCC  #FLGSV_EXPOPT,(R11),10$ :NO--DO NOT ALLOW OPTIMIZATION 
0000'CF 00 9 10$:  MOVB — #ADM$_CITERAL.W*MAC$GB_MODE SET LITERAL MODE 


0 
6 
0 
0 
0 
0 
0 
0 
0 
QOOO'CF Q000'CF47 »d0 8 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


FPP ooowowowowowowowowowowowoooowono 


WWO S PW "OF Pod ofwn Fe ueyeweD “Prurn > COCR COCRCOCODCODODCDCDCOOCDOCRDODCNCDCD 6 wD 
PARE AAAAAAAAAO AAA AAOOOrrn 


C009 Co 09 09 C8 C0 C9 09 08 SI NI NINN SINS NINO OOOo 
WONAUNE WN 0 OONAUE WN OOONOu 


SINC_PC ; 
OVL W*MACSAL_VALSTACKCR7],=- ;COPY THE VALUE 
B O“MACSGL_EXPOPVL1 
0000'CF 91 028 CMPB = W*MACS$GB_RDXNDX,= sREADING FLT. PT.? 
04 B #ROXSV_FCOAT 
39 1F 0288 690 BLSSU _40$ :1F LESS THEN NO 
50 O000'CF DO O2BA 691 MOVL W*MACSGL_EXPOPVL1.RO § ;MOVE FLOATING PT. NUMBER INTO RO 
Q0000'CF 91 O2BF 69 CMPB = W°MAC$GB~RDXNDX, - tH FLOAT? 
07 C 69 #ROXSV_HFLOAT 
16 12 0204 694 BNEQ 208 :NO, THEN SKIP TO OTHER FLT. PT. CODE 
51 50 03 1D EF 02C6 695 EXTZV #29,#3,R0,R1 'GET FRACTION 
52 50 «4203» «©00)=COEF':s«OO2CB S696 EXTZV #0,#3,R0,R2 'GET EXPONENT 
51 03 03 52 FO 0200 697 INSV R2,#3,43,R1 [COMBINE THEM 
0000'CF 51 9A 02D5 698 MOVZBL R1,W*MACSGL_EXPOPVL1 ‘STORE RESULT 
17. «11 DA 699 BRB 40$ ; 
Q000'CF 91 O2DC 700 20S: CMPB = W*MACS$GB_RDXNDX,- :G FLOAT? 
06 E 701 #ROXSV_GFLOAT 
99 12 O2€1 70 BNEQ 30S :NO, SKIP TO F AND D FLOAT COMMON CODE 
0000'cF 50 06 01 EF O2E3 70 EXTZV #1,#6,R0,- ‘YES, STORE RESULT 
EA 704 W°MAC$GL_EXPOPVL1 
07 11 O2EA 705 BRB 4 
0000'CF 50 06 04 EF O2EC 706 30$: EXTZV #4,#6,R0,- :F OR D FLOAT, STORE RESULT 
F3 707 W*MACSGL_EXPOPVL1 
FDS8 4631 +O2F3 708 40$: = BRW REF _EXIT sEXIT FROM REFERENCE 


MACSACTREF 
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0000' CF 


QOOO'CF 08 
FFF8°CF47 


FDB1 


90 
F6 
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RENCES 1g-SEP-1984 02:00:48 VAX/ VS Macro V04-00 
NT MODE -SEP-1984 01:47:09 CMACRO.SRCJACTREF.MAR; 1 
710 .SBTTL AUTO=INCREMENT MODE 

ie p++ 

a $ FUNCTIONAL DESCRIPTION: 

715 : THIS ROUTINE IS CALLED WHEN AN AUTO-INCREMENT REFERENCE IS 
£16 : SCANNED. THE MODE AND REGISTER ARE SET, AND A CHECK IS MADE 
4 ; FOR AN ILLEGAL REGISTER REFERENCE. 

719 + INPUTS: 

, 1: MACSAL_VALSTACK=8(R7] RESGISTER NUMBER 

f 5 : OUTPUTS: 

725: MACS$GB_MODE "ADM$_REGAUTOINC' 

f $ : MAC$GB_REG SET TO REGISTER 

ft 

130 AINC1:: ;AUTO_INC = DOPN RRREG DCLS DPLUS 
13 MOVB § #ADM$_REGAUTOINC,W*MACSGB_MODE ;SET MODE 

73 CVTLB W*MACSAL_VALSTACK-8(R7J,--;GET REGISTER NUMBER 

734 Q*MACS$GB_REG 

735 BRW ILL_REG_CHK :CHK REG ERROR AND RETURN 


QOOOO'CF 01 
0000° CF 

00 68 07 
56 ‘CE 
0000'CF47 
0000' CF 

2E 

10 0000'CF 
OE 

0004 ' CF 

21 

0000' CF 

1B 

07 

08 0000'CF 
06 

0000' CF 

oc 

0000'CF 

07 

08 

02 A6 

03 

0081 

50 0000'CF 
68 

60 05 05 
51 00 

70 

51 0080 8F 
69 

60 

53 

66 C000 8F 


H 6 
OPERAND REFERENCES 1 mi iaat ht be: 
IMMEDIATE MODE 


SNOT 
DPAPEXPRDP Gs ££ EI 
WO OONAUE WN OOO NOUS wr" O0OOon 


66 
12$: 
68 


-9o -O Oo —]0—]0-—-00 0mMm-—09 
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oO 
—_ 


-—-O-0-amMm—9 Ww-oO— 
COVIW—W STW 
Sa 


WOO WCOC0C0 C9090 0990008 SI NIN NS 
WIS OONAUE WIN O OONOUS WN 


Poa 
— 


EP=19 
~SBTTL IMMEDIATE MODE 


4 


p++ 
; SUNCTIONAL DESCRIPTION: 


AINC3:: 


MOVZBL #1,W*MACS$GL_ABSFLAG 
-SBTTL AUTO-INCREMENT PC 


AINC2:: 
TSTL W*MACSGL_ABSFLAG 
BEQL 10$ 
BBCC #FLGSV EXPOPT . (ait) 
10$:  MOVAB W*MACSOL »g'° 
MOVL WMACSAL “Wicgracetnyy, «nis 
sit W*MACSGL_ABSFL 
CHB W*MACSGL_OPSIZE #16 
TSTL W*MAC$GQ_HIGH_64+4 
BNEQ 
TSTL W*MAC$GQ_HIGH_64+0 
BNEQ 17$ 
BRB 14$ 
CMPB W*MACSGL_OPSIZE #8 
_ BNEQ 16$ 
TSTL W*MACSGL_HIGH_32 
16$ BNEQ 17$ 
CMPB W*MACSGB_RDXNDX,=- 
#ROXSV_HFLOAT 
BEQL 
TSTW 2(R6) 
BEQL 18$ 
17$: BRW 40$ 
18$: mov | w*MACSGL_MOPPTR,r0 
beql 568 
extv #OPD$SV MODE, #OPD$S_MODE, ( 
cmpw #OPDSM_ADDR,r1 
beql 40$ 
cmpw #OPDSM_VIELD,r1 
beql 40$ 
tstw (r0) 
bgeq 268 
; : ABSOLUTE FLOATING OPERAND--MAKE SHORT 
ADDW3 #*XC000, (R6) ,RO 


AX/VMS Macro V04-00 
MACRO.SRCJACTREF .MAR; 1 


THIS ROUTINE IS INVOKED WHEN AN IMMEDATE REFERENCE IS SCANNED. 
(ALSO FOR AUTO=INCRMENT OF PC C#EXPRI). 


sBASIC REF = DIUP DPOUND EXPR 
;DO NOT ALLOW OPTIMIZATION 


s;AUTO_INC = DPOUND DEXPR 
He eae neprnessiow 


QL YES 
OINT O'RESULT. OPTIMIZATION 


RESU 
ut UL TE” EXPRESSION? 
; Is operand octaword? 
; No if N 
; Are bits 96-127 all zero? 
; No if 
; Are bits 64-95 all zero? 
; No if NEQ 


Is operand quadword? 
No if NEQ? 


Are bits 32-63 all zero? 
No if NEQ 


eres. ~— LEA yes WORD FOR LATER 

HIF “EOL THEN Y 

Get Operand bits, isolate Mode. 
ify nytt pointer assume integer. 

; Can't allow short Lit. if Addr. ref., 

; ditto for Vield references. 


; Floating Operand? 
; No if positive. 


FLOATING IF WE CAN 
CLEAR HIGH ORDER BIT IN EXPONENT 


=—~—— 


0000°CF 

7 

3 

10 02 A6 
TFFFFFFS 8F 

2 3 8 

8H 8 
0 0 2 
66 1 

rd 

0000° CF 

06 

OE 

50 =«FF81 BF 

e7 

50 6006S ls«O0)1 
15 

50 =FCOF 8F 

19 

50 060 = (04 

07 

66 FFCO 8F 
0B 

QOOO'CF 00 
16 

QOOO'CF 01 
QOOO'CF OF 


50 0000°CF 
50 


OPERAND R 
AUTO=INC 


91 


—-PoO"™nruwor 


oOo —onNMmmn—on— 
— 


nO mm 
—T"w rT 


B3 
12 
90 


mn 
nm 


zu 
aonm 


AX/VMS Macro V04-00 
MACRO.SRCJACTREF .MAR; 1 


pg 
u0- 


WAWIAIWIDIRIPIPINININGNINININ 2 2 OP  -  MPOOOOOOOCOCOOCOOOOWOWODO am 
FUN [= O OODNAU EWN | O ODNAUE WN OOD NOU EWN OWOONAUE 


“i 
So 
Sad 


ARE ‘NECESSARY B 
F _NEQ NO 


PROXSV ec RDXNDX,= 


SKIP TC F AND D_ FLOAT COMMON CODE 
NECESSARY BITS ZERO? 


;1F NEQ 
A #6,R0,(R6) 7YES, STORE RESULT 


;ARE NECESSARY BITS ZERO? 


44 #6,R0, (R6) :F OR D FLOAT, STORE RESULT 


ABSOLUTE NON-FLOATING--MAKE SHORT LITERAL IF WE CAN 
#*C<*X3F>, (RO) shee eee THAN 64? 


NEQ 
, #ADMS_LITERAL ,W*MACS$GB MODE ;SET LITERAL MODE 


MUST USE IMMEDIATE MODE 
HADHS ater ie MODE :SET THE MODE 
OHASGL _OPSIZE,RO T THE OPERAND SIZE 


US ONE BY 
SUPDATE LOCATION COUNTER 


0.00 09 09 Cd 09 CD C9 Cd C9 CD OD Cd C9 CD 09 CD CD CD CD OD CD GD. 09 0D 09 CD 0D CD09 0909090909 SI III 


0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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MACSACTREF OPERA 
06-000 DEFER 


aon 
-—m 
” 


6 
REGISTER REFERENCE SaSEP=1986 1:49:09 TMACKO SReoAcrner aar:1 = Page 3, 


-SBTTL DEFERRED INDIRECT REGISTER REFERENCE 


p++ 
; FUNCTIONAL DESCRIPTION: 
ROUTINE IS INVOKED wen AD 
1S SCANNED. THE MODE AND R 
INCREMENTED BY TWO BYTES. 
INPUTS: 
MACSAL_VALSTACK=4CR7] REGISTER 
OUTPUTS: 
MAC$GB_MODE *ADMS_DFB 


YT 
MACS$GB_REG SET TO REGI 
MACS$GL_PC INCREMENTED 


ERRED INDIRECT REGISTER “a eee 
ISTER ARE SET, AND THE PC IS 


AUTOI3:: :BA SIC_REF = DAT DOPN RRREG DCLS 
CLRL W*MACS$GL_EXPOPVL1 LUE IS 0. 
MOVB #ADM$ DFBYTEDISP usnacscé hs -SET THE MODE 
CVTLB W*MACSAL_VALSTACK=4(R7J,-— was THE REGISTER 
a MACSCB. REG 


SINC_PC #2 = ;EAT TWO BYTES 
RSB 


QOOOO'CF D4 
, 0B 90 
OOOO'CF FFFC'CF47 F6 


©0000 00 09 00 09 C9 G0 CO CD CO CO COCO COCO CD ONCE CSCO CDCDCDCBODCNCD | 


PEA QD MAA & EPSPS EIN oe 


WR O OONAUE WN 0 ODNOUE WN OOONGS MZ 


ee —~ 


MACSACTREF OPERAND REFERENCES 16-SEP-1984 00:4 AX/VMS Macro v04-00 Page 3 MA 
04-000 INDEXED REFERENCES mets 94:00:48 YRACRO SRe ACTREF .MAR; 1 . (53) vO 
406 65 -SBTTL INDEXED REFERENCES 
toe (Be? 
4 67; 
rt ? o8 ; FUNCTIONAL DESCRIPTION: 
406 $3 : THIS meet ton IS INVOKED Rg AN INDEX REFERENCE IS FOUND. CHECKS 
406 71 ; ARE M FOR ILLEGAL INDEX MODES, AND MESSAGES ISSUED TO PASS 2 
406 ie 3 IF ILLEGAL INDEX tsp ARE FOUND. THE MODES AND REGISTERS OF 
406 75 3 THE BASIC REFERENCE AND THE INDEX REFERENCE ARE SET UP AND THE 
bebe ie : PC IS INCREMENTED TO COUNT THE INDEX REGISTER REFERENCE. 
Sis £76 | inputs: 
0406 78 ; MACSAL_VALSTACK=4(R7] INDEX REGISTER NUMBER 
0406 79 ; MAC$GB_ _MODE MODE OF BASIC REFERENCE 
ot 9 39 5 MAC$GB_REG REGISTER OF BASIC REFERENCE 
406 Ho 3: OUTPUTS: 
406 883; 
0406 884 ; MACS$GB_MODE *ADMS_ INDEX’ 
0406 885 ; MAC REG INDEX “REGISTER NUMBER 
0406 886; MACS$GB_IMODE MODE OF BASIC REFERENCE 
0406 887 ; $GB_REG REGISTER OF BASIC REFERENCE 
0406 888 ; MACSGL_ PC INCREMENTED BY 1 FOR INDEX REF 
0406 889 ; 
0406 ee j-- 
0406 91 
0406 4 INDEX: : s INDEX_REF = BASIC_REF DSQOPN RRREG DSQCLS 
50 0000'CF 90 0406 9 MOVB W*MACS$GB_MODE ,RO :GET BASIC_REF 
00 50 91 0408 94 CMPB RO #ADMS_ LITERAL caOr Eh LY LITERAL MODE i ILLEGAL 
08 12 O40E 895 NEQ o$ 0 ERRO OR MESSAGE | TODA 
041 538 10$: SMAC_ERR MAYNOTINDX asst, sage ¢ 
FBE8" 30 041 97 BSBW MACSERRORPT TERR RT PASS 2 
56 FFFC'CF47 DO 0418 98 20S: MOVL Py -VALSTACK=4(R7], ie Peet Bigs REGISTER NUMBER 
OF 56 91 O41E 99 CMPB R6 ,#REGS_PC C IS AN ILLEGAL REGISTER 
16 13° 0421 00 BEQL 30 At EQL ILLEGAL INDEX REG 
0000' CF 56 91 Be 3 06= 901 CMPB R6 ,W*MACSGB_REG SAM E - BASIC_REF REGISTER? 
17 12 0428 90 BNEQ :1F NEQ N 
07 50 91 Q42A 90 CMPB RO, #ADM$_REGAUTODEC sYES--IS MODE -(RX)CRXJ 
OA 13 0420 904 BEQL s1F EQL ILLEGA 
08 50 (91 42F 44 CMPB RO, #ADM$_REGAUTOINC st 7 “gall CRKD RX] 
05 13 0432 9 $ BEQL s1F EQL YES 
09 50 91 0434 90 ence RO, #ADM$_DFRAUTOINC 31S RODE a(RX)+CRXI 
08 12 0437 908 BNEQ :1F NEQ NO 
439 909 308: ae! JERR ILL INDXREG ; Yes--set message code 
FBBF* 30 043 910 MACSERRORPT ISSUE MESSAGE TO PASS 2 
10 68 Hs ei 0441 911 40S: Boot sr LGSV _OPTVFLIDX,(r11),60$ ; Occasionally, the presence of 
50 ‘ 0 0445 aig addb2 : indexing forces de-optimization, 
oe 3 91 0448 91 cmpb r *#ADMS_LONG_DISP 3; If we de-optimize to Longword Disp. 
064 12 0448 914 bnequ 50$ : the increase is two bytes, otherwise 
44D 915 Sinc_pc 3; the increase is only one byte. 
451 318 50$: Sinc_pc 
0000' CF 50 90 0455 917 60$: MOVB r0,W*MACS$GB_IMODE ;MOVE RESTS TERS AND MODES 
0000'CF 04 $0 045A 918 MOVE  § #ADMS_ INDEX? W*MACSG B MODE gist NDEX MODE 
0000'CF O000'CF 90 045F 919 MOVE W*MACSGB REG WeMACSCB I ket 
0000'CF 56 90 0466 320 MOVB RG. w*MAC Psce. REG Ree FRE INDEX REGISTER VALUE 
46B 921 SINC_PC S ALLOW ROOM FOR INDEX REG 


vOs-000 NDEXED REFERENCES "SM SERCHORE BaC0:KE YAMA acre ymtnge, Page 24, v0 


05 O46F 922 RSB 


‘s 


PC ,W*MACS 


MACSACTREF OPERAND REFERENCES 
v04-000 SPESHL MODE _CHK 
rf 4 ; : -SBTTL SPESHL_MODE_CHK 
47 § p++ 
rt 3 3; FUNCTIONAL DESCRIPTION: 
47 .] § J THIS rey CHE 
47 930 ; SPECIALLY SINCE 
47 931 ; PITERAC LAODE REF 
47 9 $ ; REFERENCES AND T 
47 9 ; IMMEDIATE MODE R 
0470 934; 
£78 4 5 ; INPUTS: 
47 § : 
470 937 ; MAC$GB_MODE 
944 938 ; 
047 939 ; OUTPUTS: 
0470 940 ; 
0470 941 ; MAC$GB_MODE 
0470 4) 3 MACS$GB_REG 
0470 943; MACS$GL_PC 
0470 944; 
0470 945 ;-- 
0470 946 
8358 947 SPESHL_MODE_CHK: 
50 O0O00'CF 90 0470 948 MOVE 
16 12 9 949 BNEQ 
0000'CF 1 90 047 950 MOVB 
0000'CF F 90 047C 951 MOVB #REGS— 
50 OO00'CF 9A 0481 828 MOVZBL 
0486 95 SINC_PC R 
18 «11 et 954 RB 20$ 
50 97 048D 955 10$: DECB RO 
14 12 O48F 956 NEQ 
50 OO00'CF 9A 0491 957 MOVZBL 
0496 958 $DEC_PC 
0498 959 SINC-PC 
O00O'CF 04 90 Q4A0 960 MOVB 
05 961 20$: RSB 
96 
96 


wgAcsea_ MODE ,RO 
#ADMS_IMMEDIATE 
WrMACSGL _ OPSIZE,RO 


20$ 
2 ARCO, APSEEE RO 


by) 
#4 ,W*MACS$GL_OPSIZE 


MODE OF OPERAND 


NEW MODE OF OPERAND 
SET TO PC IF ORIGINAL REF WAS LITERAL 
UPDATED. 


~$EP=1984 01:47:09. EMACKOSSRCSACTRER MAR; 1 


NDEX MODE. 


MODE 
THE OPERAND. 
SIZE. 


GET THE MODE Tsien 
IF NOT LITERA 


EXIT 
31 


BRANCH L (0) 

gl MACsCB. Ueee 4 la MODE To IMEDIATE 
3GET OPERAND SIZE 

UPDATE f 

ROUTINE 

S MODE IMMEDIATE (1)? 
:1F NEQ NO 
;YES--GET OPERAND SIZE 


;SUBTRACT DEFAULT SIZE 
;FORCE TO LONGWORD 
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te ee eT 
Km Sr 


OPTVFLID 


ra 
z55e 
ere'ssccreccaassssaassssa55555555555% 


ZTMMANAMNMNMNMMNNMNMNNNDE VOIVIO FVIII IIGBOIPIBEISG VOU IVIAGISSSSOIIIIG@ISI SVIVIs9a9Isgv9o0o 


$M_ALLCHR 


OPERAND REFERENCES 
I 
] 
I 
] 
] 
] 
I 
I 
I 
I 
I 
I 
I 
R 
F 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
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BYTE 
DFBYT 
INDEX 
LITERAL 


oY 
~ 
2 
ao 
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~ 
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MACSACTREF 
ADMS 

ADMS 

AOMS 

CHRSV 

CNT 

CR 

D 


AOM$ 
AOMS 
ADMS 


AD 


SoOoOooooooooooooo 


0 
0 
000000 
000000 
000000 
sits 


OPERAND REFERENCES 


o 


wn 
fcoecuuwrwerowvur- 
=<ow 
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KAD 1 


DWDOOWOWMIAAI NOUN 


SOR DOoS NOON] IM LOOWw 


eeeeeeee 
Reeeeere 
rereeeee 
gRereeeeee 
Reeeeeee 
eeeeeere 
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rerereee 
Reeeeere 
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Reereeree 
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eeeeeeee 
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SSEp=1986 01:47:09 


4 


MQ 
MW 


0 
OBJ$K_BUFSIZ 
fad ts ADDR 


OPF$V_LASTOPR 
OPF $V" OPTEXP 
PC DISPL_DISP 


SC$B_NAME 
PSC$B_SEG 
PSC$B_UNUSED 
PSC$K_BLKSIZ 
PSC$K_NO_OPT 
PSC$L_CURLOC 
PSC$L_LINK 
PSC$L_MAXLGTH 
PSC$M_ABS 
PSC$M_ALIGNFLG 
PSC$M_ALLOPTNS 
PSC$M_BYTE 
PSC$M_CON 
PSC$M_DEF AULT 
PSC$M_EXE 
PSC$M_GBL 
PSCSM_LCL 
PSC$M_LIB 
PSC$M_LONG 
PSCSM_NOEXE 
PSCS$M_NOPIC 
PSC$M_NORD 
PSC$M_NOSHR 
PSCSM_NOVEC 
PSC$M_NOWRT 
PSC$M_OVR 
©SCS$M_PAGE 


=> 


=< 


>x 


oe, we OOOO OCCOCOCOOCOCOOOCOOS- BNO LEMOGBOOON FOO BD 
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MACSACTREF OPERAND REFERENCES 19-SEP-1984 02:0 :48 VAX/VMS Macro V04-00 Page 28. 
Symbol table =SEP=1984 01:47:0 MACRO. SRCJACTREF .MAR: 1 (19) | 
| 
CSM_| = 00000001 SYM$B_NAME 00000 WL = 00000064 
PSC$M~QUAD = a9908c00 SYM$B-SEG 0 ee wo = 009007 
CSM = 000000 SYM$B_ TOKEN 0 0B wa = 00 006 
PSCSM~REL = 9990099 SYMSK-BLKS1Z 0D Wid = 000 06 
PSCSM~SHR = 000000 SYMSK-MAXLEN = 00 O01F x = 0000001 
PSCSM_USR = FRFFFFFD SYMSK-TWOCOL = 00000010 x1 ~ 99000400 
PSCSM— = 00000200 SYMSL LINK 000 00 X2 = 0000000F 
PSCS$M_WORD = 90004400 SYMSL~VAL 000000 
PSCSM_WRT = 00000180 SYMSM_ABS = 9990019 
PSC$S-ALIGNMENT= 00000004 SYMSM~ASN = 000 9190 
PSC$VALIGNFLG = OO00000E SYMSM-CRFO = 00002000 
PSCS$V-ALIGNMENT= OOOQ000A SYMSM_DEBUG = 9900020 
PSC$V~EXE = 00000006 SYMSM_DEF = 00000001 
PSC$V~ = 00000004 SYMSM~DELMAC = 00000200 
PSC$V-LIB = 00000001 SYMSM~EPT = 00000200 
PSC$V—OVR = 00000002 SYMSM-EXTRN = 00000008 
PSC$V~PIC = 00000000 SYMSM-GLOBL = 00000004 
PSC$V~ = 00000007 SYMSM-LOCAL = 00000040 | 
PSC$V-REL = 00000003 SYMSM_ODBG = 00000400 
PSC$V~SHR = 00000005 SYMSM~REF = 00000080 
PSC$V~VEC = 00000009 SYMSM-RELPSECT = 00000800 
PSCSV_WRT = 00000008 SYMSM~SUPR = 00004000 
PSCSW~FLAG 00000009 SYMSM_WEAK = 00000002 
PSC$W-OPTIONS — 0000000D SYMSM~XCRF = 00001000 
Q = 00000008 SYMSV—ABS = 00000004 
RB = 900000¢1 SYMSV-ASN = 00000008 
RD = 00000028 SYMSV~CRFO = 00000000 
RDEFER 00000066 RG 04 SYM$V~DEBUG = 00000005 
ROX$V_BINARY = 00000000 SYMSV~DEF = 00000000 | 
RDX$V-DECIMAL = 00000002 SYMSV~DELMAC = 00000009 
RDX$V~DOUBLE = 00000005 SYMSV~EPT = 00000009 | 
RDX$SVFLOAT = _ 00000004 SYMSV-EXTRN = 00000003 
RDX$V~GFLOAT = 00000006 SYM$V~GLOBL = 00000002 
RDX$V—HEX = 00000003 SYM$V-LOCAL = 00000006 | 
RDXSVIHFLOAT = 00000007 SYM$V~ODBG = 0000000A 
RDX$V-OCTAL = 00000001 SYMSV_REF = 00000007 
REF 1 QO00004E RG 04 SYMSV-RELPSECT = 00000008 
REF¢ 00000056 RG 04 SYMSV~SUPR = 0000000€ 
F QO00004E RG 04 SYMSV~WEAK = 00000001 
REF _EXIT 0000004E 04 SYMSV~XCRF = 0000000 
EGS_P = 0000000F SYMSW~FLAG 00000009 | 
F = 00008024 TAB = 00000009 
RF HD 0000003 04 vB = 00000081 | 
RFHD1 00 90087 RG 4 VD = 9990¢0 
RFHD16 00000033 RG 4 VF = 00 
RFHD2 0000002A RG 04 VG = 60000 8 
RFHD4 0000002D RG =: 04 VH 2 9009090 
RF HDB 000000 0 RG 04 VL = 9900 4 | 
RG = 0000A0 vO = 000000 
RH = 00009030 va = 99 00 
RL = 00000024 VW = 00 
RO = 90000 W = 09 00 
RQ = 000000 WB : 0061 
= 000000 wD = ¢ 68 
Ser a MODE_CHK BODOOLIO ROS WG = OoO0AGGE 
STBSK_PG_MISS = O000000A WH = 6 $09090 


MACSACTREF 


OPERAND REFERENCES 
Psect synopsis 


PSECT name Allocation PSECT No. Attributes 
ABS 0CO000000 <¢ 0.) OO ¢ O.) NOPIC USR CON 
. BLANK BORO RT § ( 0.) 0O1¢ #1.) NOPIC USR CON 
S$ 0000001 ( 19.) Mt ( §°3 NOPIC USR CON 
MACS$RO_DATA 00000010 (¢ 16.) 03 ¢ 3.) NOPIC USSR CON 
MACSRO_CODE_P1 000004A6 ( 1190.) 04 ¢( 4.) NOPIC USR CON 
Genaneeuseeseusnsenueeen} 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.06 00:00:01.43 
Command processing 103 00:00:00.38 00:00:01.98 
Pass 238 00:00:04.18 00:00:18.71 
Symbol table sort 0 00:00:00.54 00:00:01.13 
Pass 183 00:00:01.51 00:00:03.59 
Symbol table output 39 00:00:00.21 00:00:00.67 
Psect synopsis output 1 00:00:00.02 00:00:00.24 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 595 00:00:06.90 00:00:27.75 


The working set Limit was 1650 pages. 


There were 30 
963 source Lines were read in Pass 1, producing 


4 object records in Pass 2 
19 pages of virtual memory were used to define 1 


macros. 


! Macro Library statistics ! 
Lowe wrwmrearcecne ne ran ece sae mean as + 


Macros defined 


Macro library name 


~$255$DUA2B: [MACRO.OBJ JMACRO MLB; 1 13 
$255$DUA28: (SYSLIBISTARLET.MLB; 2 3 
TOTALS (all Libraries) 16 


616 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 


41361 bytes (81 pages) of virtual memory were used to buffer the intermediate code. 
pages of symbol table space allocated to hold 540 non-local and 53 local symbols. 


MACRO/LIS=LIS$:ACTREF /OBJ=OBJ$:ACTREF MSRC$:ACTREF /UPDATE=(ENHS:ACTREF )+L1B$:MACRO/LIB 


SEINE QGGB 


LCL NOSHR NO 
LCL NOSHR 

LCL NOSHR 
GBL N 
GBL N 


EXE 
EXE 
EXE 
OSHR NOEXE 
0 EXE 


NORD 
RD 


RD 
RD 
RD 


AX/VMS Macro _Vv04-00 
MACRO.SRCJACTREF .MAR; 1 


NOWRT 
R 


NOWRT NOVEC LONG 


Page dG 


vee BYTE 


} 


} 
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